home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / BORLAND TURBO ASSEMBLER / FILT.PAK / OFILWRIT.ASM < prev    next >
Assembly Source File  |  1996-01-10  |  2KB  |  92 lines
  1.  
  2. ;    FILENAME: OFILWRIT.ASM
  3. ;    Copyright (c) 1988, 1993 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine FileWrite. FileWrite 
  6. ;    writes to a file. 
  7. ; 
  8. ;    ASSEMBLY INSTRUCTIONS:  To assemble this module use the following  
  9. ;    TASM command line.  
  10. ;  
  11. ;        TASM ofilwrit
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     FileWrite proc
  18.  
  19.     ;    Input 
  20.     ;        bx - file record offset
  21.     ;        cx - number of bytes
  22.     ;        si - location of bytes
  23.     ;    Output
  24.     ;        cf - set if error occurred
  25.     ;        ax - error code
  26.     ;        (cf set and ax = 0 if EOF)
  27.     ;            0 - if EOF and 0 bytes are read
  28.     ;    Registers modified
  29.     ;        None
  30.  
  31.  
  32.     pushf
  33.     push    cx
  34.     push    dx
  35.     push    di
  36.     push    si
  37.     cld
  38.     mov     dx, [bx+6]      ;buffer segment
  39.  
  40.     ;--- copy bytes to buffer
  41.  
  42. filwrt1:
  43.     mov     ax, [bx+2]      ;buffer size
  44.     mov     di, [bx+4]      ;data pointer
  45.     sub     ax, di          ;buffer space available
  46.     jz      filwrt3         ;jump if none, must flush first
  47.  
  48.     push    es
  49.     push    cx
  50.     cmp     ax, cx          ;check if all bytes fit
  51.     jae     filwrt2
  52.     mov     cx, ax          ;set to maximum
  53.  
  54. filwrt2:
  55.     push    cx
  56.     mov     es, dx
  57.     rep     movsb
  58.     pop     ax
  59.     pop     cx
  60.     pop     es
  61.     mov     [bx+4], di      ;save data pointer
  62.     sub     cx, ax          ;get bytes not yet written
  63.     jz      filwrt4         ;jump if finished
  64.  
  65.     ;--- write buffer
  66.  
  67. filwrt3:
  68.     call    FileFlush       ;flush buffer first
  69.     jnc     filwrt1         ;loop back if no error
  70.  
  71.     ;--- finished
  72.  
  73. filwrt4:
  74.     pop     si
  75.     pop     di
  76.     pop     dx
  77.     pop     cx
  78.     jc      filwrt5
  79.     popf
  80.     clc
  81.     ret
  82.  
  83. filwrt5:
  84.     popf
  85.     stc
  86.     ret
  87.     FileWrite endp
  88.  
  89. _TEXT    ends
  90.  
  91. end
  92.